(defun c:hconcdr()

  	;HATCH CONCRETE DRIVE

  	(IF LAYENTMAKE NIL(LOAD "MKLAYR" "\nFile MKLAYER.LSP NOT LOADED"))
  
  	(LAYENTMAKE "C-CONC7DRVE" "1" "CONTINUOUS")
  	(LAYENTMAKE "C-CONCWPATT" "252" "CONTINUOUS")
  
	(command "-bhatch" "P" "ansi31" 5 0 (getpoint "Select Point") "")
	(C:HATBND)
  	(COMMAND "CHANGE" "L" "" "P" "LA" "C-CONC7DRVE" "")
  	(C:PROCP)
  	(COMMAND "ERASE")
  
	
)